home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt86feb.arc / LIST5.TXT < prev    next >
Text File  |  1985-10-19  |  389b  |  15 lines
  1.  
  2.  
  3.     LET = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
  4.     DIGITS = '0123456789'
  5.     IDEN = (ANY(LET) (SPAN(LET DIGITS) | '')) . *PUSH()
  6. +        NULL . *EV()
  7.     INTEGER = SPAN(DIGITS) . *PUSH()
  8.     PRIMARY = IDEN | INTEGER | '(' *E ')'
  9.     FACTOR = PRIMARY | '-' PRIMARY . *NEG()
  10.     TERM = FACTOR
  11. +        ARBNO( '*' FACTOR . *MUL() | '/' FACTOR . *DIV() )
  12.     E = TERM ARBNO( '+' TERM . *ADD() | '-' TERM . *SUB() )
  13.  
  14.  
  15.